home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / techjock.arc / WINDEM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-11-18  |  1.5 KB  |  41 lines
  1. Program Illustrating_Windowing;
  2.  
  3. uses Crt, FastTTT, Dos, WinTTT;
  4.  
  5. var Ch : char;
  6.     I : integer;
  7. begin
  8.      Clrscr;
  9.      FillScreen(1,1,80,25,white,blue,'W');
  10.      Sizecursor(4,5);
  11.      delay(1000);                    {move the cursor to a unique location}
  12.      MkWin(10,4,40,13,yellow,green,1);
  13.      WriteBetween(10,40,7,yellow,green,'This is the first window');
  14.      WriteBetween(10,40,9,yellow,green,'Maybe a pulldown menu   ');
  15.      GotoXY(38,9);                   {move the cursor to a unique location}
  16.      Sizecursor(6,7);
  17.      Delay(2000);
  18.      MkWin(20,11,50,20,red,lightgray,2);
  19.      WriteBetween(20,50,14,red,lightgray,'This is the second window');
  20.      WriteBetween(20,50,16,red,lightgray,'Perhaps a second menu   ');
  21.      OffCursor;                       {Now hide the cursor}
  22.      Delay(2000);
  23.      GrowMkWin(45,6,75,24,magenta,cyan,3);
  24.      WriteBetween(45,80,14,magenta,cyan,'This is the third window');
  25.      WriteBetween(45,80,16,magenta,cyan,'Perhaps a help screen  ');
  26.      GotoXY(73,16);                  {move the cursor to a unique location}
  27.      Sizecursor(1,7);
  28.      Delay(3000);
  29.      Rmwin;
  30.      Delay(1000);
  31.      Rmwin;
  32.      Delay(1000);
  33.      Rmwin;
  34.      Mkwin(25,11,55,16,white,blue,4);
  35.      WriteBetween(25,55,13,white,blue,'Thats all there is to it!');
  36.      WriteBetween(25,55,14,white,blue,'press any key...');
  37.      WriteAT(1,24,white,black,'Run DemoTTT.exe for the main demo program');
  38.      WriteAT(1,25,white,black,'Technojocks Turbo Toolkit v4.0');
  39.      Ch := Readkey;
  40. end.
  41.